home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / DATATYPE / LINKINIT.PAS < prev    next >
Pascal/Delphi Source File  |  1996-08-18  |  2KB  |  45 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; initialization of a linked list
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBINI, EFLIBDAT;
  10.  
  11. var LinkedList : LinkedListObjectType;
  12.     SomeData : string;
  13.  
  14. begin
  15.      with LinkedList do begin
  16.           { Initialize list without sorting, with front access and
  17.             restriction in the access (overflow checking enabled) }
  18.  
  19.           InitializeList (SizeOf(SomeData), UnsortedOrder,
  20.                           { Element size }  { Sort order }
  21.                           FALSE,            FALSE);
  22.                           { Access behind } { Unrestricted access }
  23.  
  24.           { Add some elements to the linked list. Notice that the elements
  25.             are added in the lists front (AccessFromBehind is disabled). }
  26.           SomeData := 'Something...';
  27.           Add (SomeData);  Add (SomeData);  Add (SomeData);
  28.           SomeData := SomeData + 'else';
  29.           Add (SomeData);  Add (SomeData);  Add (SomeData);
  30.           SomeData := SomeData + ' to';
  31.           Add (SomeData);  Add (SomeData);  Add (SomeData);
  32.           SomeData := SomeData + ' work with?';
  33.           Add (SomeData);  Add (SomeData);  Add (SomeData);
  34.           SomeData := SomeData + ' EFLIB!';
  35.           Add (SomeData);  Add (SomeData);  Add (SomeData);
  36.  
  37.  
  38.           { Test the list }
  39.           SomeData := 'This is just some garbage information';
  40.           Element (1, SomeData); WriteLn (SomeData);
  41.  
  42.           Intercept;
  43.      end;
  44.      if GlobalDataError then WriteLn ('Error(s) reported!');
  45. end.